unit uPart ;

interface

uses
    Windows,
    Messages,
    SysUtils,
    Variants,
    Classes,
    Graphics,
    Controls,
    Forms,
    Dialogs,
    StdCtrls,
    SpTBXDkPanels,
    SpTBXEditors,
    TBXDkPanels,
    SpTBXControls ;

type
    TFramePart = class( TFrame )
    private
        { Private declarations }
        function GetX : integer ;
        function GetY : integer ;
        procedure SetX( const Value : integer ) ;
        procedure SetY( const Value : integer ) ;
    public
        { Public declarations }
        property X : integer read GetX write SetX ;
        property Y : integer read GetY write SetY ;
    end ;

implementation

{$R *.dfm}

{ TFramePart }

function TFramePart.GetX : integer ;
begin
    Result := StrToIntDef( edX.Text, 0 ) ;
end ;

function TFramePart.GetY : integer ;
begin
    Result := StrToIntDef( edY.Text, 0 ) ;
end ;

procedure TFramePart.SetX( const Value : integer ) ;
begin
    edX.Text := IntToStr( Value ) ;
end ;

procedure TFramePart.SetY( const Value : integer ) ;
begin
    edY.Text := IntToStr( Value ) ;
end ;

end.

